Option Strict On
Option Explicit On 

Public Class Preview
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
    Friend WithEvents PrintPreviewControl1 As System.Windows.Forms.PrintPreviewControl
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog
    Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
    Friend WithEvents miView As System.Windows.Forms.MenuItem
    Friend WithEvents miFile As System.Windows.Forms.MenuItem
    Friend WithEvents miFileClose As System.Windows.Forms.MenuItem
    Friend WithEvents miFilePageSetup As System.Windows.Forms.MenuItem
    Friend WithEvents miFilePrint As System.Windows.Forms.MenuItem
    Friend WithEvents miViewRefresh As System.Windows.Forms.MenuItem
    Friend WithEvents miFileSaveAs As System.Windows.Forms.MenuItem
    Friend WithEvents miPages As System.Windows.Forms.MenuItem
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents miFileBar1 As System.Windows.Forms.MenuItem
    Friend WithEvents miFileBar2 As System.Windows.Forms.MenuItem
    Friend WithEvents miFileBar3 As System.Windows.Forms.MenuItem
    Friend WithEvents cboZoom As System.Windows.Forms.ComboBox
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents ToolBar2 As System.Windows.Forms.ToolBar
    Friend WithEvents tbZoom100 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbFitToWindow As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep11 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBar3 As System.Windows.Forms.ToolBar
    Friend WithEvents tbNext As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbLast As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbFirst As System.Windows.Forms.ToolBarButton
    Friend WithEvents updPageNumber As System.Windows.Forms.NumericUpDown
    Friend WithEvents tbPrint As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbRefresh As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbFilter As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSort As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbPages As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbSep5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbZoomOut As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbZoomIn As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents tbPrevious As System.Windows.Forms.ToolBarButton
    Friend WithEvents miZoomIn As System.Windows.Forms.MenuItem
    Friend WithEvents miZoomOut As System.Windows.Forms.MenuItem
    Friend WithEvents miZoomBar1 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoomFitToWindow As System.Windows.Forms.MenuItem
    Friend WithEvents miZoomBar2 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoomAuto As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom500 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom200 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom150 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom100 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom75 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom50 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom25 As System.Windows.Forms.MenuItem
    Friend WithEvents miZoom10 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayoutContinous As System.Windows.Forms.MenuItem
    Friend WithEvents miLayoutBar1 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout11 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout12 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout13 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout22 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout23 As System.Windows.Forms.MenuItem
    Friend WithEvents miLayout33 As System.Windows.Forms.MenuItem
    Friend WithEvents miViewBar1 As System.Windows.Forms.MenuItem
    Friend WithEvents miViewFilter As System.Windows.Forms.MenuItem
    Friend WithEvents miViewSort As System.Windows.Forms.MenuItem
    Friend WithEvents miViewBar2 As System.Windows.Forms.MenuItem
    Friend WithEvents miViewCustom As System.Windows.Forms.MenuItem
    Friend WithEvents miViewBar3 As System.Windows.Forms.MenuItem
    Friend WithEvents miViewPage As System.Windows.Forms.MenuItem
    Friend WithEvents miPageFirst As System.Windows.Forms.MenuItem
    Friend WithEvents miPagePrevious As System.Windows.Forms.MenuItem
    Friend WithEvents miPageNext As System.Windows.Forms.MenuItem
    Friend WithEvents miPageLast As System.Windows.Forms.MenuItem
    Friend WithEvents miViewZoom As System.Windows.Forms.MenuItem
    Friend WithEvents miFileFormView As System.Windows.Forms.MenuItem
    Friend WithEvents miFileDatasheetView As System.Windows.Forms.MenuItem
    Friend WithEvents tbFormView As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbDatasheetView As System.Windows.Forms.ToolBarButton
    Friend WithEvents lblPageCount As System.Windows.Forms.Label
    Friend WithEvents btnClose As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Preview))
        Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument
        Me.PrintPreviewControl1 = New System.Windows.Forms.PrintPreviewControl
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.miFile = New System.Windows.Forms.MenuItem
        Me.miFileClose = New System.Windows.Forms.MenuItem
        Me.miFileBar1 = New System.Windows.Forms.MenuItem
        Me.miFileSaveAs = New System.Windows.Forms.MenuItem
        Me.miFileBar2 = New System.Windows.Forms.MenuItem
        Me.miFilePageSetup = New System.Windows.Forms.MenuItem
        Me.miFilePrint = New System.Windows.Forms.MenuItem
        Me.miFileBar3 = New System.Windows.Forms.MenuItem
        Me.miFileFormView = New System.Windows.Forms.MenuItem
        Me.miFileDatasheetView = New System.Windows.Forms.MenuItem
        Me.miView = New System.Windows.Forms.MenuItem
        Me.miViewPage = New System.Windows.Forms.MenuItem
        Me.miPageFirst = New System.Windows.Forms.MenuItem
        Me.miPagePrevious = New System.Windows.Forms.MenuItem
        Me.miPageNext = New System.Windows.Forms.MenuItem
        Me.miPageLast = New System.Windows.Forms.MenuItem
        Me.miViewZoom = New System.Windows.Forms.MenuItem
        Me.miZoomIn = New System.Windows.Forms.MenuItem
        Me.miZoomOut = New System.Windows.Forms.MenuItem
        Me.miZoomBar1 = New System.Windows.Forms.MenuItem
        Me.miZoomFitToWindow = New System.Windows.Forms.MenuItem
        Me.miZoomBar2 = New System.Windows.Forms.MenuItem
        Me.miZoomAuto = New System.Windows.Forms.MenuItem
        Me.miZoom500 = New System.Windows.Forms.MenuItem
        Me.miZoom200 = New System.Windows.Forms.MenuItem
        Me.miZoom150 = New System.Windows.Forms.MenuItem
        Me.miZoom100 = New System.Windows.Forms.MenuItem
        Me.miZoom75 = New System.Windows.Forms.MenuItem
        Me.miZoom50 = New System.Windows.Forms.MenuItem
        Me.miZoom25 = New System.Windows.Forms.MenuItem
        Me.miZoom10 = New System.Windows.Forms.MenuItem
        Me.miPages = New System.Windows.Forms.MenuItem
        Me.miLayoutContinous = New System.Windows.Forms.MenuItem
        Me.miLayoutBar1 = New System.Windows.Forms.MenuItem
        Me.miLayout11 = New System.Windows.Forms.MenuItem
        Me.miLayout12 = New System.Windows.Forms.MenuItem
        Me.miLayout13 = New System.Windows.Forms.MenuItem
        Me.miLayout22 = New System.Windows.Forms.MenuItem
        Me.miLayout23 = New System.Windows.Forms.MenuItem
        Me.miLayout33 = New System.Windows.Forms.MenuItem
        Me.miViewBar1 = New System.Windows.Forms.MenuItem
        Me.miViewFilter = New System.Windows.Forms.MenuItem
        Me.miViewSort = New System.Windows.Forms.MenuItem
        Me.miViewBar2 = New System.Windows.Forms.MenuItem
        Me.miViewCustom = New System.Windows.Forms.MenuItem
        Me.miViewBar3 = New System.Windows.Forms.MenuItem
        Me.miViewRefresh = New System.Windows.Forms.MenuItem
        Me.PrintDialog1 = New System.Windows.Forms.PrintDialog
        Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
        Me.cboZoom = New System.Windows.Forms.ComboBox
        Me.ToolBar3 = New System.Windows.Forms.ToolBar
        Me.tbNext = New System.Windows.Forms.ToolBarButton
        Me.tbLast = New System.Windows.Forms.ToolBarButton
        Me.tbFirst = New System.Windows.Forms.ToolBarButton
        Me.tbPrevious = New System.Windows.Forms.ToolBarButton
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.btnClose = New System.Windows.Forms.Button
        Me.updPageNumber = New System.Windows.Forms.NumericUpDown
        Me.ToolBar2 = New System.Windows.Forms.ToolBar
        Me.tbZoom100 = New System.Windows.Forms.ToolBarButton
        Me.tbFitToWindow = New System.Windows.Forms.ToolBarButton
        Me.tbSep11 = New System.Windows.Forms.ToolBarButton
        Me.lblPageCount = New System.Windows.Forms.Label
        Me.tbPrint = New System.Windows.Forms.ToolBarButton
        Me.tbSep1 = New System.Windows.Forms.ToolBarButton
        Me.tbFormView = New System.Windows.Forms.ToolBarButton
        Me.tbDatasheetView = New System.Windows.Forms.ToolBarButton
        Me.tbSep2 = New System.Windows.Forms.ToolBarButton
        Me.tbRefresh = New System.Windows.Forms.ToolBarButton
        Me.tbSep3 = New System.Windows.Forms.ToolBarButton
        Me.tbFilter = New System.Windows.Forms.ToolBarButton
        Me.tbSort = New System.Windows.Forms.ToolBarButton
        Me.tbSep4 = New System.Windows.Forms.ToolBarButton
        Me.tbPages = New System.Windows.Forms.ToolBarButton
        Me.tbSep5 = New System.Windows.Forms.ToolBarButton
        Me.tbZoomOut = New System.Windows.Forms.ToolBarButton
        Me.tbZoomIn = New System.Windows.Forms.ToolBarButton
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.Panel1.SuspendLayout()
        CType(Me.updPageNumber, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'PrintDocument1
        '
        '
        'PrintPreviewControl1
        '
        Me.PrintPreviewControl1.AccessibleDescription = resources.GetString("PrintPreviewControl1.AccessibleDescription")
        Me.PrintPreviewControl1.AccessibleName = resources.GetString("PrintPreviewControl1.AccessibleName")
        Me.PrintPreviewControl1.Anchor = CType(resources.GetObject("PrintPreviewControl1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.PrintPreviewControl1.AutoZoom = False
        Me.PrintPreviewControl1.BackgroundImage = CType(resources.GetObject("PrintPreviewControl1.BackgroundImage"), System.Drawing.Image)
        Me.PrintPreviewControl1.ContextMenu = Me.ContextMenu1
        Me.PrintPreviewControl1.Dock = CType(resources.GetObject("PrintPreviewControl1.Dock"), System.Windows.Forms.DockStyle)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
        Me.PrintPreviewControl1.Enabled = CType(resources.GetObject("PrintPreviewControl1.Enabled"), Boolean)
        Me.PrintPreviewControl1.Font = CType(resources.GetObject("PrintPreviewControl1.Font"), System.Drawing.Font)
        Me.PrintPreviewControl1.ImeMode = CType(resources.GetObject("PrintPreviewControl1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.PrintPreviewControl1.Location = CType(resources.GetObject("PrintPreviewControl1.Location"), System.Drawing.Point)
        Me.PrintPreviewControl1.Name = "PrintPreviewControl1"
        Me.PrintPreviewControl1.RightToLeft = CType(resources.GetObject("PrintPreviewControl1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.PrintPreviewControl1.Size = CType(resources.GetObject("PrintPreviewControl1.Size"), System.Drawing.Size)
        Me.PrintPreviewControl1.TabIndex = CType(resources.GetObject("PrintPreviewControl1.TabIndex"), Integer)
        Me.PrintPreviewControl1.Visible = CType(resources.GetObject("PrintPreviewControl1.Visible"), Boolean)
        Me.PrintPreviewControl1.Zoom = 1
        '
        'ContextMenu1
        '
        Me.ContextMenu1.RightToLeft = CType(resources.GetObject("ContextMenu1.RightToLeft"), System.Windows.Forms.RightToLeft)
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = CType(resources.GetObject("ImageList1.ImageSize"), System.Drawing.Size)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miFile, Me.miView})
        Me.MainMenu1.RightToLeft = CType(resources.GetObject("MainMenu1.RightToLeft"), System.Windows.Forms.RightToLeft)
        '
        'miFile
        '
        Me.miFile.Enabled = CType(resources.GetObject("miFile.Enabled"), Boolean)
        Me.miFile.Index = 0
        Me.miFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miFileClose, Me.miFileBar1, Me.miFileSaveAs, Me.miFileBar2, Me.miFilePageSetup, Me.miFilePrint, Me.miFileBar3, Me.miFileFormView, Me.miFileDatasheetView})
        Me.miFile.MergeOrder = 1
        Me.miFile.MergeType = System.Windows.Forms.MenuMerge.MergeItems
        Me.miFile.Shortcut = CType(resources.GetObject("miFile.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFile.ShowShortcut = CType(resources.GetObject("miFile.ShowShortcut"), Boolean)
        Me.miFile.Text = resources.GetString("miFile.Text")
        Me.miFile.Visible = CType(resources.GetObject("miFile.Visible"), Boolean)
        '
        'miFileClose
        '
        Me.miFileClose.Enabled = CType(resources.GetObject("miFileClose.Enabled"), Boolean)
        Me.miFileClose.Index = 0
        Me.miFileClose.MergeOrder = 2
        Me.miFileClose.Shortcut = CType(resources.GetObject("miFileClose.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileClose.ShowShortcut = CType(resources.GetObject("miFileClose.ShowShortcut"), Boolean)
        Me.miFileClose.Text = resources.GetString("miFileClose.Text")
        Me.miFileClose.Visible = CType(resources.GetObject("miFileClose.Visible"), Boolean)
        '
        'miFileBar1
        '
        Me.miFileBar1.Enabled = CType(resources.GetObject("miFileBar1.Enabled"), Boolean)
        Me.miFileBar1.Index = 1
        Me.miFileBar1.MergeOrder = 3
        Me.miFileBar1.Shortcut = CType(resources.GetObject("miFileBar1.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileBar1.ShowShortcut = CType(resources.GetObject("miFileBar1.ShowShortcut"), Boolean)
        Me.miFileBar1.Text = resources.GetString("miFileBar1.Text")
        Me.miFileBar1.Visible = CType(resources.GetObject("miFileBar1.Visible"), Boolean)
        '
        'miFileSaveAs
        '
        Me.miFileSaveAs.Enabled = CType(resources.GetObject("miFileSaveAs.Enabled"), Boolean)
        Me.miFileSaveAs.Index = 2
        Me.miFileSaveAs.MergeOrder = 4
        Me.miFileSaveAs.Shortcut = CType(resources.GetObject("miFileSaveAs.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileSaveAs.ShowShortcut = CType(resources.GetObject("miFileSaveAs.ShowShortcut"), Boolean)
        Me.miFileSaveAs.Text = resources.GetString("miFileSaveAs.Text")
        Me.miFileSaveAs.Visible = CType(resources.GetObject("miFileSaveAs.Visible"), Boolean)
        '
        'miFileBar2
        '
        Me.miFileBar2.Enabled = CType(resources.GetObject("miFileBar2.Enabled"), Boolean)
        Me.miFileBar2.Index = 3
        Me.miFileBar2.MergeOrder = 5
        Me.miFileBar2.Shortcut = CType(resources.GetObject("miFileBar2.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileBar2.ShowShortcut = CType(resources.GetObject("miFileBar2.ShowShortcut"), Boolean)
        Me.miFileBar2.Text = resources.GetString("miFileBar2.Text")
        Me.miFileBar2.Visible = CType(resources.GetObject("miFileBar2.Visible"), Boolean)
        '
        'miFilePageSetup
        '
        Me.miFilePageSetup.Enabled = CType(resources.GetObject("miFilePageSetup.Enabled"), Boolean)
        Me.miFilePageSetup.Index = 4
        Me.miFilePageSetup.MergeOrder = 6
        Me.miFilePageSetup.Shortcut = CType(resources.GetObject("miFilePageSetup.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFilePageSetup.ShowShortcut = CType(resources.GetObject("miFilePageSetup.ShowShortcut"), Boolean)
        Me.miFilePageSetup.Text = resources.GetString("miFilePageSetup.Text")
        Me.miFilePageSetup.Visible = CType(resources.GetObject("miFilePageSetup.Visible"), Boolean)
        '
        'miFilePrint
        '
        Me.miFilePrint.Enabled = CType(resources.GetObject("miFilePrint.Enabled"), Boolean)
        Me.miFilePrint.Index = 5
        Me.miFilePrint.MergeOrder = 7
        Me.miFilePrint.Shortcut = CType(resources.GetObject("miFilePrint.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFilePrint.ShowShortcut = CType(resources.GetObject("miFilePrint.ShowShortcut"), Boolean)
        Me.miFilePrint.Text = resources.GetString("miFilePrint.Text")
        Me.miFilePrint.Visible = CType(resources.GetObject("miFilePrint.Visible"), Boolean)
        '
        'miFileBar3
        '
        Me.miFileBar3.Enabled = CType(resources.GetObject("miFileBar3.Enabled"), Boolean)
        Me.miFileBar3.Index = 6
        Me.miFileBar3.MergeOrder = 8
        Me.miFileBar3.Shortcut = CType(resources.GetObject("miFileBar3.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileBar3.ShowShortcut = CType(resources.GetObject("miFileBar3.ShowShortcut"), Boolean)
        Me.miFileBar3.Text = resources.GetString("miFileBar3.Text")
        Me.miFileBar3.Visible = CType(resources.GetObject("miFileBar3.Visible"), Boolean)
        '
        'miFileFormView
        '
        Me.miFileFormView.Enabled = CType(resources.GetObject("miFileFormView.Enabled"), Boolean)
        Me.miFileFormView.Index = 7
        Me.miFileFormView.MergeOrder = 9
        Me.miFileFormView.Shortcut = CType(resources.GetObject("miFileFormView.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileFormView.ShowShortcut = CType(resources.GetObject("miFileFormView.ShowShortcut"), Boolean)
        Me.miFileFormView.Text = resources.GetString("miFileFormView.Text")
        Me.miFileFormView.Visible = CType(resources.GetObject("miFileFormView.Visible"), Boolean)
        '
        'miFileDatasheetView
        '
        Me.miFileDatasheetView.Enabled = CType(resources.GetObject("miFileDatasheetView.Enabled"), Boolean)
        Me.miFileDatasheetView.Index = 8
        Me.miFileDatasheetView.MergeOrder = 10
        Me.miFileDatasheetView.Shortcut = CType(resources.GetObject("miFileDatasheetView.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miFileDatasheetView.ShowShortcut = CType(resources.GetObject("miFileDatasheetView.ShowShortcut"), Boolean)
        Me.miFileDatasheetView.Text = resources.GetString("miFileDatasheetView.Text")
        Me.miFileDatasheetView.Visible = CType(resources.GetObject("miFileDatasheetView.Visible"), Boolean)
        '
        'miView
        '
        Me.miView.Enabled = CType(resources.GetObject("miView.Enabled"), Boolean)
        Me.miView.Index = 1
        Me.miView.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miViewPage, Me.miViewZoom, Me.miPages, Me.miViewBar1, Me.miViewFilter, Me.miViewSort, Me.miViewBar2, Me.miViewCustom, Me.miViewBar3, Me.miViewRefresh})
        Me.miView.MergeOrder = 2
        Me.miView.MergeType = System.Windows.Forms.MenuMerge.MergeItems
        Me.miView.Shortcut = CType(resources.GetObject("miView.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miView.ShowShortcut = CType(resources.GetObject("miView.ShowShortcut"), Boolean)
        Me.miView.Text = resources.GetString("miView.Text")
        Me.miView.Visible = CType(resources.GetObject("miView.Visible"), Boolean)
        '
        'miViewPage
        '
        Me.miViewPage.Enabled = CType(resources.GetObject("miViewPage.Enabled"), Boolean)
        Me.miViewPage.Index = 0
        Me.miViewPage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miPageFirst, Me.miPagePrevious, Me.miPageNext, Me.miPageLast})
        Me.miViewPage.Shortcut = CType(resources.GetObject("miViewPage.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewPage.ShowShortcut = CType(resources.GetObject("miViewPage.ShowShortcut"), Boolean)
        Me.miViewPage.Text = resources.GetString("miViewPage.Text")
        Me.miViewPage.Visible = CType(resources.GetObject("miViewPage.Visible"), Boolean)
        '
        'miPageFirst
        '
        Me.miPageFirst.Enabled = CType(resources.GetObject("miPageFirst.Enabled"), Boolean)
        Me.miPageFirst.Index = 0
        Me.miPageFirst.Shortcut = CType(resources.GetObject("miPageFirst.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miPageFirst.ShowShortcut = CType(resources.GetObject("miPageFirst.ShowShortcut"), Boolean)
        Me.miPageFirst.Text = resources.GetString("miPageFirst.Text")
        Me.miPageFirst.Visible = CType(resources.GetObject("miPageFirst.Visible"), Boolean)
        '
        'miPagePrevious
        '
        Me.miPagePrevious.Enabled = CType(resources.GetObject("miPagePrevious.Enabled"), Boolean)
        Me.miPagePrevious.Index = 1
        Me.miPagePrevious.Shortcut = CType(resources.GetObject("miPagePrevious.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miPagePrevious.ShowShortcut = CType(resources.GetObject("miPagePrevious.ShowShortcut"), Boolean)
        Me.miPagePrevious.Text = resources.GetString("miPagePrevious.Text")
        Me.miPagePrevious.Visible = CType(resources.GetObject("miPagePrevious.Visible"), Boolean)
        '
        'miPageNext
        '
        Me.miPageNext.Enabled = CType(resources.GetObject("miPageNext.Enabled"), Boolean)
        Me.miPageNext.Index = 2
        Me.miPageNext.Shortcut = CType(resources.GetObject("miPageNext.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miPageNext.ShowShortcut = CType(resources.GetObject("miPageNext.ShowShortcut"), Boolean)
        Me.miPageNext.Text = resources.GetString("miPageNext.Text")
        Me.miPageNext.Visible = CType(resources.GetObject("miPageNext.Visible"), Boolean)
        '
        'miPageLast
        '
        Me.miPageLast.Enabled = CType(resources.GetObject("miPageLast.Enabled"), Boolean)
        Me.miPageLast.Index = 3
        Me.miPageLast.Shortcut = CType(resources.GetObject("miPageLast.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miPageLast.ShowShortcut = CType(resources.GetObject("miPageLast.ShowShortcut"), Boolean)
        Me.miPageLast.Text = resources.GetString("miPageLast.Text")
        Me.miPageLast.Visible = CType(resources.GetObject("miPageLast.Visible"), Boolean)
        '
        'miViewZoom
        '
        Me.miViewZoom.Enabled = CType(resources.GetObject("miViewZoom.Enabled"), Boolean)
        Me.miViewZoom.Index = 1
        Me.miViewZoom.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miZoomIn, Me.miZoomOut, Me.miZoomBar1, Me.miZoomFitToWindow, Me.miZoomBar2, Me.miZoomAuto, Me.miZoom500, Me.miZoom200, Me.miZoom150, Me.miZoom100, Me.miZoom75, Me.miZoom50, Me.miZoom25, Me.miZoom10})
        Me.miViewZoom.Shortcut = CType(resources.GetObject("miViewZoom.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewZoom.ShowShortcut = CType(resources.GetObject("miViewZoom.ShowShortcut"), Boolean)
        Me.miViewZoom.Text = resources.GetString("miViewZoom.Text")
        Me.miViewZoom.Visible = CType(resources.GetObject("miViewZoom.Visible"), Boolean)
        '
        'miZoomIn
        '
        Me.miZoomIn.Enabled = CType(resources.GetObject("miZoomIn.Enabled"), Boolean)
        Me.miZoomIn.Index = 0
        Me.miZoomIn.Shortcut = CType(resources.GetObject("miZoomIn.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomIn.ShowShortcut = CType(resources.GetObject("miZoomIn.ShowShortcut"), Boolean)
        Me.miZoomIn.Text = resources.GetString("miZoomIn.Text")
        Me.miZoomIn.Visible = CType(resources.GetObject("miZoomIn.Visible"), Boolean)
        '
        'miZoomOut
        '
        Me.miZoomOut.Enabled = CType(resources.GetObject("miZoomOut.Enabled"), Boolean)
        Me.miZoomOut.Index = 1
        Me.miZoomOut.Shortcut = CType(resources.GetObject("miZoomOut.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomOut.ShowShortcut = CType(resources.GetObject("miZoomOut.ShowShortcut"), Boolean)
        Me.miZoomOut.Text = resources.GetString("miZoomOut.Text")
        Me.miZoomOut.Visible = CType(resources.GetObject("miZoomOut.Visible"), Boolean)
        '
        'miZoomBar1
        '
        Me.miZoomBar1.Enabled = CType(resources.GetObject("miZoomBar1.Enabled"), Boolean)
        Me.miZoomBar1.Index = 2
        Me.miZoomBar1.Shortcut = CType(resources.GetObject("miZoomBar1.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomBar1.ShowShortcut = CType(resources.GetObject("miZoomBar1.ShowShortcut"), Boolean)
        Me.miZoomBar1.Text = resources.GetString("miZoomBar1.Text")
        Me.miZoomBar1.Visible = CType(resources.GetObject("miZoomBar1.Visible"), Boolean)
        '
        'miZoomFitToWindow
        '
        Me.miZoomFitToWindow.Enabled = CType(resources.GetObject("miZoomFitToWindow.Enabled"), Boolean)
        Me.miZoomFitToWindow.Index = 3
        Me.miZoomFitToWindow.Shortcut = CType(resources.GetObject("miZoomFitToWindow.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomFitToWindow.ShowShortcut = CType(resources.GetObject("miZoomFitToWindow.ShowShortcut"), Boolean)
        Me.miZoomFitToWindow.Text = resources.GetString("miZoomFitToWindow.Text")
        Me.miZoomFitToWindow.Visible = CType(resources.GetObject("miZoomFitToWindow.Visible"), Boolean)
        '
        'miZoomBar2
        '
        Me.miZoomBar2.Enabled = CType(resources.GetObject("miZoomBar2.Enabled"), Boolean)
        Me.miZoomBar2.Index = 4
        Me.miZoomBar2.Shortcut = CType(resources.GetObject("miZoomBar2.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomBar2.ShowShortcut = CType(resources.GetObject("miZoomBar2.ShowShortcut"), Boolean)
        Me.miZoomBar2.Text = resources.GetString("miZoomBar2.Text")
        Me.miZoomBar2.Visible = CType(resources.GetObject("miZoomBar2.Visible"), Boolean)
        '
        'miZoomAuto
        '
        Me.miZoomAuto.Enabled = CType(resources.GetObject("miZoomAuto.Enabled"), Boolean)
        Me.miZoomAuto.Index = 5
        Me.miZoomAuto.Shortcut = CType(resources.GetObject("miZoomAuto.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoomAuto.ShowShortcut = CType(resources.GetObject("miZoomAuto.ShowShortcut"), Boolean)
        Me.miZoomAuto.Text = resources.GetString("miZoomAuto.Text")
        Me.miZoomAuto.Visible = CType(resources.GetObject("miZoomAuto.Visible"), Boolean)
        '
        'miZoom500
        '
        Me.miZoom500.Enabled = CType(resources.GetObject("miZoom500.Enabled"), Boolean)
        Me.miZoom500.Index = 6
        Me.miZoom500.Shortcut = CType(resources.GetObject("miZoom500.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom500.ShowShortcut = CType(resources.GetObject("miZoom500.ShowShortcut"), Boolean)
        Me.miZoom500.Text = resources.GetString("miZoom500.Text")
        Me.miZoom500.Visible = CType(resources.GetObject("miZoom500.Visible"), Boolean)
        '
        'miZoom200
        '
        Me.miZoom200.Enabled = CType(resources.GetObject("miZoom200.Enabled"), Boolean)
        Me.miZoom200.Index = 7
        Me.miZoom200.Shortcut = CType(resources.GetObject("miZoom200.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom200.ShowShortcut = CType(resources.GetObject("miZoom200.ShowShortcut"), Boolean)
        Me.miZoom200.Text = resources.GetString("miZoom200.Text")
        Me.miZoom200.Visible = CType(resources.GetObject("miZoom200.Visible"), Boolean)
        '
        'miZoom150
        '
        Me.miZoom150.Enabled = CType(resources.GetObject("miZoom150.Enabled"), Boolean)
        Me.miZoom150.Index = 8
        Me.miZoom150.Shortcut = CType(resources.GetObject("miZoom150.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom150.ShowShortcut = CType(resources.GetObject("miZoom150.ShowShortcut"), Boolean)
        Me.miZoom150.Text = resources.GetString("miZoom150.Text")
        Me.miZoom150.Visible = CType(resources.GetObject("miZoom150.Visible"), Boolean)
        '
        'miZoom100
        '
        Me.miZoom100.Checked = True
        Me.miZoom100.Enabled = CType(resources.GetObject("miZoom100.Enabled"), Boolean)
        Me.miZoom100.Index = 9
        Me.miZoom100.Shortcut = CType(resources.GetObject("miZoom100.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom100.ShowShortcut = CType(resources.GetObject("miZoom100.ShowShortcut"), Boolean)
        Me.miZoom100.Text = resources.GetString("miZoom100.Text")
        Me.miZoom100.Visible = CType(resources.GetObject("miZoom100.Visible"), Boolean)
        '
        'miZoom75
        '
        Me.miZoom75.Enabled = CType(resources.GetObject("miZoom75.Enabled"), Boolean)
        Me.miZoom75.Index = 10
        Me.miZoom75.Shortcut = CType(resources.GetObject("miZoom75.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom75.ShowShortcut = CType(resources.GetObject("miZoom75.ShowShortcut"), Boolean)
        Me.miZoom75.Text = resources.GetString("miZoom75.Text")
        Me.miZoom75.Visible = CType(resources.GetObject("miZoom75.Visible"), Boolean)
        '
        'miZoom50
        '
        Me.miZoom50.Enabled = CType(resources.GetObject("miZoom50.Enabled"), Boolean)
        Me.miZoom50.Index = 11
        Me.miZoom50.Shortcut = CType(resources.GetObject("miZoom50.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom50.ShowShortcut = CType(resources.GetObject("miZoom50.ShowShortcut"), Boolean)
        Me.miZoom50.Text = resources.GetString("miZoom50.Text")
        Me.miZoom50.Visible = CType(resources.GetObject("miZoom50.Visible"), Boolean)
        '
        'miZoom25
        '
        Me.miZoom25.Enabled = CType(resources.GetObject("miZoom25.Enabled"), Boolean)
        Me.miZoom25.Index = 12
        Me.miZoom25.Shortcut = CType(resources.GetObject("miZoom25.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom25.ShowShortcut = CType(resources.GetObject("miZoom25.ShowShortcut"), Boolean)
        Me.miZoom25.Text = resources.GetString("miZoom25.Text")
        Me.miZoom25.Visible = CType(resources.GetObject("miZoom25.Visible"), Boolean)
        '
        'miZoom10
        '
        Me.miZoom10.Enabled = CType(resources.GetObject("miZoom10.Enabled"), Boolean)
        Me.miZoom10.Index = 13
        Me.miZoom10.Shortcut = CType(resources.GetObject("miZoom10.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miZoom10.ShowShortcut = CType(resources.GetObject("miZoom10.ShowShortcut"), Boolean)
        Me.miZoom10.Text = resources.GetString("miZoom10.Text")
        Me.miZoom10.Visible = CType(resources.GetObject("miZoom10.Visible"), Boolean)
        '
        'miPages
        '
        Me.miPages.Enabled = CType(resources.GetObject("miPages.Enabled"), Boolean)
        Me.miPages.Index = 2
        Me.miPages.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miLayoutContinous, Me.miLayoutBar1, Me.miLayout11, Me.miLayout12, Me.miLayout13, Me.miLayout22, Me.miLayout23, Me.miLayout33})
        Me.miPages.Shortcut = CType(resources.GetObject("miPages.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miPages.ShowShortcut = CType(resources.GetObject("miPages.ShowShortcut"), Boolean)
        Me.miPages.Text = resources.GetString("miPages.Text")
        Me.miPages.Visible = CType(resources.GetObject("miPages.Visible"), Boolean)
        '
        'miLayoutContinous
        '
        Me.miLayoutContinous.Enabled = CType(resources.GetObject("miLayoutContinous.Enabled"), Boolean)
        Me.miLayoutContinous.Index = 0
        Me.miLayoutContinous.Shortcut = CType(resources.GetObject("miLayoutContinous.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayoutContinous.ShowShortcut = CType(resources.GetObject("miLayoutContinous.ShowShortcut"), Boolean)
        Me.miLayoutContinous.Text = resources.GetString("miLayoutContinous.Text")
        Me.miLayoutContinous.Visible = CType(resources.GetObject("miLayoutContinous.Visible"), Boolean)
        '
        'miLayoutBar1
        '
        Me.miLayoutBar1.Enabled = CType(resources.GetObject("miLayoutBar1.Enabled"), Boolean)
        Me.miLayoutBar1.Index = 1
        Me.miLayoutBar1.Shortcut = CType(resources.GetObject("miLayoutBar1.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayoutBar1.ShowShortcut = CType(resources.GetObject("miLayoutBar1.ShowShortcut"), Boolean)
        Me.miLayoutBar1.Text = resources.GetString("miLayoutBar1.Text")
        Me.miLayoutBar1.Visible = CType(resources.GetObject("miLayoutBar1.Visible"), Boolean)
        '
        'miLayout11
        '
        Me.miLayout11.Checked = True
        Me.miLayout11.Enabled = CType(resources.GetObject("miLayout11.Enabled"), Boolean)
        Me.miLayout11.Index = 2
        Me.miLayout11.Shortcut = CType(resources.GetObject("miLayout11.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout11.ShowShortcut = CType(resources.GetObject("miLayout11.ShowShortcut"), Boolean)
        Me.miLayout11.Text = resources.GetString("miLayout11.Text")
        Me.miLayout11.Visible = CType(resources.GetObject("miLayout11.Visible"), Boolean)
        '
        'miLayout12
        '
        Me.miLayout12.Enabled = CType(resources.GetObject("miLayout12.Enabled"), Boolean)
        Me.miLayout12.Index = 3
        Me.miLayout12.Shortcut = CType(resources.GetObject("miLayout12.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout12.ShowShortcut = CType(resources.GetObject("miLayout12.ShowShortcut"), Boolean)
        Me.miLayout12.Text = resources.GetString("miLayout12.Text")
        Me.miLayout12.Visible = CType(resources.GetObject("miLayout12.Visible"), Boolean)
        '
        'miLayout13
        '
        Me.miLayout13.Enabled = CType(resources.GetObject("miLayout13.Enabled"), Boolean)
        Me.miLayout13.Index = 4
        Me.miLayout13.Shortcut = CType(resources.GetObject("miLayout13.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout13.ShowShortcut = CType(resources.GetObject("miLayout13.ShowShortcut"), Boolean)
        Me.miLayout13.Text = resources.GetString("miLayout13.Text")
        Me.miLayout13.Visible = CType(resources.GetObject("miLayout13.Visible"), Boolean)
        '
        'miLayout22
        '
        Me.miLayout22.Enabled = CType(resources.GetObject("miLayout22.Enabled"), Boolean)
        Me.miLayout22.Index = 5
        Me.miLayout22.Shortcut = CType(resources.GetObject("miLayout22.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout22.ShowShortcut = CType(resources.GetObject("miLayout22.ShowShortcut"), Boolean)
        Me.miLayout22.Text = resources.GetString("miLayout22.Text")
        Me.miLayout22.Visible = CType(resources.GetObject("miLayout22.Visible"), Boolean)
        '
        'miLayout23
        '
        Me.miLayout23.Enabled = CType(resources.GetObject("miLayout23.Enabled"), Boolean)
        Me.miLayout23.Index = 6
        Me.miLayout23.Shortcut = CType(resources.GetObject("miLayout23.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout23.ShowShortcut = CType(resources.GetObject("miLayout23.ShowShortcut"), Boolean)
        Me.miLayout23.Text = resources.GetString("miLayout23.Text")
        Me.miLayout23.Visible = CType(resources.GetObject("miLayout23.Visible"), Boolean)
        '
        'miLayout33
        '
        Me.miLayout33.Enabled = CType(resources.GetObject("miLayout33.Enabled"), Boolean)
        Me.miLayout33.Index = 7
        Me.miLayout33.Shortcut = CType(resources.GetObject("miLayout33.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miLayout33.ShowShortcut = CType(resources.GetObject("miLayout33.ShowShortcut"), Boolean)
        Me.miLayout33.Text = resources.GetString("miLayout33.Text")
        Me.miLayout33.Visible = CType(resources.GetObject("miLayout33.Visible"), Boolean)
        '
        'miViewBar1
        '
        Me.miViewBar1.Enabled = CType(resources.GetObject("miViewBar1.Enabled"), Boolean)
        Me.miViewBar1.Index = 3
        Me.miViewBar1.Shortcut = CType(resources.GetObject("miViewBar1.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewBar1.ShowShortcut = CType(resources.GetObject("miViewBar1.ShowShortcut"), Boolean)
        Me.miViewBar1.Text = resources.GetString("miViewBar1.Text")
        Me.miViewBar1.Visible = CType(resources.GetObject("miViewBar1.Visible"), Boolean)
        '
        'miViewFilter
        '
        Me.miViewFilter.Enabled = CType(resources.GetObject("miViewFilter.Enabled"), Boolean)
        Me.miViewFilter.Index = 4
        Me.miViewFilter.Shortcut = CType(resources.GetObject("miViewFilter.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewFilter.ShowShortcut = CType(resources.GetObject("miViewFilter.ShowShortcut"), Boolean)
        Me.miViewFilter.Text = resources.GetString("miViewFilter.Text")
        Me.miViewFilter.Visible = CType(resources.GetObject("miViewFilter.Visible"), Boolean)
        '
        'miViewSort
        '
        Me.miViewSort.Enabled = CType(resources.GetObject("miViewSort.Enabled"), Boolean)
        Me.miViewSort.Index = 5
        Me.miViewSort.Shortcut = CType(resources.GetObject("miViewSort.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewSort.ShowShortcut = CType(resources.GetObject("miViewSort.ShowShortcut"), Boolean)
        Me.miViewSort.Text = resources.GetString("miViewSort.Text")
        Me.miViewSort.Visible = CType(resources.GetObject("miViewSort.Visible"), Boolean)
        '
        'miViewBar2
        '
        Me.miViewBar2.Enabled = CType(resources.GetObject("miViewBar2.Enabled"), Boolean)
        Me.miViewBar2.Index = 6
        Me.miViewBar2.Shortcut = CType(resources.GetObject("miViewBar2.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewBar2.ShowShortcut = CType(resources.GetObject("miViewBar2.ShowShortcut"), Boolean)
        Me.miViewBar2.Text = resources.GetString("miViewBar2.Text")
        Me.miViewBar2.Visible = CType(resources.GetObject("miViewBar2.Visible"), Boolean)
        '
        'miViewCustom
        '
        Me.miViewCustom.Enabled = CType(resources.GetObject("miViewCustom.Enabled"), Boolean)
        Me.miViewCustom.Index = 7
        Me.miViewCustom.Shortcut = CType(resources.GetObject("miViewCustom.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewCustom.ShowShortcut = CType(resources.GetObject("miViewCustom.ShowShortcut"), Boolean)
        Me.miViewCustom.Text = resources.GetString("miViewCustom.Text")
        Me.miViewCustom.Visible = CType(resources.GetObject("miViewCustom.Visible"), Boolean)
        '
        'miViewBar3
        '
        Me.miViewBar3.Enabled = CType(resources.GetObject("miViewBar3.Enabled"), Boolean)
        Me.miViewBar3.Index = 8
        Me.miViewBar3.Shortcut = CType(resources.GetObject("miViewBar3.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewBar3.ShowShortcut = CType(resources.GetObject("miViewBar3.ShowShortcut"), Boolean)
        Me.miViewBar3.Text = resources.GetString("miViewBar3.Text")
        Me.miViewBar3.Visible = CType(resources.GetObject("miViewBar3.Visible"), Boolean)
        '
        'miViewRefresh
        '
        Me.miViewRefresh.Enabled = CType(resources.GetObject("miViewRefresh.Enabled"), Boolean)
        Me.miViewRefresh.Index = 9
        Me.miViewRefresh.Shortcut = CType(resources.GetObject("miViewRefresh.Shortcut"), System.Windows.Forms.Shortcut)
        Me.miViewRefresh.ShowShortcut = CType(resources.GetObject("miViewRefresh.ShowShortcut"), Boolean)
        Me.miViewRefresh.Text = resources.GetString("miViewRefresh.Text")
        Me.miViewRefresh.Visible = CType(resources.GetObject("miViewRefresh.Visible"), Boolean)
        '
        'PrintDialog1
        '
        Me.PrintDialog1.AllowSelection = True
        Me.PrintDialog1.AllowSomePages = True
        Me.PrintDialog1.Document = Me.PrintDocument1
        '
        'PageSetupDialog1
        '
        Me.PageSetupDialog1.Document = Me.PrintDocument1
        '
        'cboZoom
        '
        Me.cboZoom.AccessibleDescription = resources.GetString("cboZoom.AccessibleDescription")
        Me.cboZoom.AccessibleName = resources.GetString("cboZoom.AccessibleName")
        Me.cboZoom.Anchor = CType(resources.GetObject("cboZoom.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.cboZoom.BackgroundImage = CType(resources.GetObject("cboZoom.BackgroundImage"), System.Drawing.Image)
        Me.cboZoom.Dock = CType(resources.GetObject("cboZoom.Dock"), System.Windows.Forms.DockStyle)
        Me.cboZoom.Enabled = CType(resources.GetObject("cboZoom.Enabled"), Boolean)
        Me.cboZoom.Font = CType(resources.GetObject("cboZoom.Font"), System.Drawing.Font)
        Me.cboZoom.ImeMode = CType(resources.GetObject("cboZoom.ImeMode"), System.Windows.Forms.ImeMode)
        Me.cboZoom.IntegralHeight = CType(resources.GetObject("cboZoom.IntegralHeight"), Boolean)
        Me.cboZoom.ItemHeight = CType(resources.GetObject("cboZoom.ItemHeight"), Integer)
        Me.cboZoom.Items.AddRange(New Object() {resources.GetString("cboZoom.Items"), resources.GetString("cboZoom.Items1"), resources.GetString("cboZoom.Items2"), resources.GetString("cboZoom.Items3"), resources.GetString("cboZoom.Items4"), resources.GetString("cboZoom.Items5"), resources.GetString("cboZoom.Items6"), resources.GetString("cboZoom.Items7"), resources.GetString("cboZoom.Items8")})
        Me.cboZoom.Location = CType(resources.GetObject("cboZoom.Location"), System.Drawing.Point)
        Me.cboZoom.MaxDropDownItems = CType(resources.GetObject("cboZoom.MaxDropDownItems"), Integer)
        Me.cboZoom.MaxLength = CType(resources.GetObject("cboZoom.MaxLength"), Integer)
        Me.cboZoom.Name = "cboZoom"
        Me.cboZoom.RightToLeft = CType(resources.GetObject("cboZoom.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.cboZoom.Size = CType(resources.GetObject("cboZoom.Size"), System.Drawing.Size)
        Me.cboZoom.TabIndex = CType(resources.GetObject("cboZoom.TabIndex"), Integer)
        Me.cboZoom.Text = resources.GetString("cboZoom.Text")
        Me.cboZoom.Visible = CType(resources.GetObject("cboZoom.Visible"), Boolean)
        '
        'ToolBar3
        '
        Me.ToolBar3.AccessibleDescription = resources.GetString("ToolBar3.AccessibleDescription")
        Me.ToolBar3.AccessibleName = resources.GetString("ToolBar3.AccessibleName")
        Me.ToolBar3.Anchor = CType(resources.GetObject("ToolBar3.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.ToolBar3.Appearance = CType(resources.GetObject("ToolBar3.Appearance"), System.Windows.Forms.ToolBarAppearance)
        Me.ToolBar3.AutoSize = CType(resources.GetObject("ToolBar3.AutoSize"), Boolean)
        Me.ToolBar3.BackgroundImage = CType(resources.GetObject("ToolBar3.BackgroundImage"), System.Drawing.Image)
        Me.ToolBar3.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbNext, Me.tbLast})
        Me.ToolBar3.ButtonSize = CType(resources.GetObject("ToolBar3.ButtonSize"), System.Drawing.Size)
        Me.ToolBar3.Divider = False
        Me.ToolBar3.Dock = CType(resources.GetObject("ToolBar3.Dock"), System.Windows.Forms.DockStyle)
        Me.ToolBar3.DropDownArrows = CType(resources.GetObject("ToolBar3.DropDownArrows"), Boolean)
        Me.ToolBar3.Enabled = CType(resources.GetObject("ToolBar3.Enabled"), Boolean)
        Me.ToolBar3.Font = CType(resources.GetObject("ToolBar3.Font"), System.Drawing.Font)
        Me.ToolBar3.ImageList = Me.ImageList1
        Me.ToolBar3.ImeMode = CType(resources.GetObject("ToolBar3.ImeMode"), System.Windows.Forms.ImeMode)
        Me.ToolBar3.Location = CType(resources.GetObject("ToolBar3.Location"), System.Drawing.Point)
        Me.ToolBar3.Name = "ToolBar3"
        Me.ToolBar3.RightToLeft = CType(resources.GetObject("ToolBar3.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ToolBar3.ShowToolTips = CType(resources.GetObject("ToolBar3.ShowToolTips"), Boolean)
        Me.ToolBar3.Size = CType(resources.GetObject("ToolBar3.Size"), System.Drawing.Size)
        Me.ToolBar3.TabIndex = CType(resources.GetObject("ToolBar3.TabIndex"), Integer)
        Me.ToolBar3.TextAlign = CType(resources.GetObject("ToolBar3.TextAlign"), System.Windows.Forms.ToolBarTextAlign)
        Me.ToolBar3.Visible = CType(resources.GetObject("ToolBar3.Visible"), Boolean)
        Me.ToolBar3.Wrappable = CType(resources.GetObject("ToolBar3.Wrappable"), Boolean)
        '
        'tbNext
        '
        Me.tbNext.Enabled = CType(resources.GetObject("tbNext.Enabled"), Boolean)
        Me.tbNext.ImageIndex = CType(resources.GetObject("tbNext.ImageIndex"), Integer)
        Me.tbNext.Text = resources.GetString("tbNext.Text")
        Me.tbNext.ToolTipText = resources.GetString("tbNext.ToolTipText")
        Me.tbNext.Visible = CType(resources.GetObject("tbNext.Visible"), Boolean)
        '
        'tbLast
        '
        Me.tbLast.Enabled = CType(resources.GetObject("tbLast.Enabled"), Boolean)
        Me.tbLast.ImageIndex = CType(resources.GetObject("tbLast.ImageIndex"), Integer)
        Me.tbLast.Text = resources.GetString("tbLast.Text")
        Me.tbLast.ToolTipText = resources.GetString("tbLast.ToolTipText")
        Me.tbLast.Visible = CType(resources.GetObject("tbLast.Visible"), Boolean)
        '
        'tbFirst
        '
        Me.tbFirst.Enabled = CType(resources.GetObject("tbFirst.Enabled"), Boolean)
        Me.tbFirst.ImageIndex = CType(resources.GetObject("tbFirst.ImageIndex"), Integer)
        Me.tbFirst.Text = resources.GetString("tbFirst.Text")
        Me.tbFirst.ToolTipText = resources.GetString("tbFirst.ToolTipText")
        Me.tbFirst.Visible = CType(resources.GetObject("tbFirst.Visible"), Boolean)
        '
        'tbPrevious
        '
        Me.tbPrevious.Enabled = CType(resources.GetObject("tbPrevious.Enabled"), Boolean)
        Me.tbPrevious.ImageIndex = CType(resources.GetObject("tbPrevious.ImageIndex"), Integer)
        Me.tbPrevious.Text = resources.GetString("tbPrevious.Text")
        Me.tbPrevious.ToolTipText = resources.GetString("tbPrevious.ToolTipText")
        Me.tbPrevious.Visible = CType(resources.GetObject("tbPrevious.Visible"), Boolean)
        '
        'Panel1
        '
        Me.Panel1.AccessibleDescription = resources.GetString("Panel1.AccessibleDescription")
        Me.Panel1.AccessibleName = resources.GetString("Panel1.AccessibleName")
        Me.Panel1.Anchor = CType(resources.GetObject("Panel1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.Panel1.AutoScroll = CType(resources.GetObject("Panel1.AutoScroll"), Boolean)
        Me.Panel1.AutoScrollMargin = CType(resources.GetObject("Panel1.AutoScrollMargin"), System.Drawing.Size)
        Me.Panel1.AutoScrollMinSize = CType(resources.GetObject("Panel1.AutoScrollMinSize"), System.Drawing.Size)
        Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image)
        Me.Panel1.Controls.Add(Me.btnClose)
        Me.Panel1.Controls.Add(Me.ToolBar3)
        Me.Panel1.Controls.Add(Me.updPageNumber)
        Me.Panel1.Controls.Add(Me.ToolBar2)
        Me.Panel1.Controls.Add(Me.cboZoom)
        Me.Panel1.Controls.Add(Me.lblPageCount)
        Me.Panel1.Dock = CType(resources.GetObject("Panel1.Dock"), System.Windows.Forms.DockStyle)
        Me.Panel1.Enabled = CType(resources.GetObject("Panel1.Enabled"), Boolean)
        Me.Panel1.Font = CType(resources.GetObject("Panel1.Font"), System.Drawing.Font)
        Me.Panel1.ImeMode = CType(resources.GetObject("Panel1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Panel1.Location = CType(resources.GetObject("Panel1.Location"), System.Drawing.Point)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.RightToLeft = CType(resources.GetObject("Panel1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.Panel1.Size = CType(resources.GetObject("Panel1.Size"), System.Drawing.Size)
        Me.Panel1.TabIndex = CType(resources.GetObject("Panel1.TabIndex"), Integer)
        Me.Panel1.Text = resources.GetString("Panel1.Text")
        Me.Panel1.Visible = CType(resources.GetObject("Panel1.Visible"), Boolean)
        '
        'btnClose
        '
        Me.btnClose.AccessibleDescription = resources.GetString("btnClose.AccessibleDescription")
        Me.btnClose.AccessibleName = resources.GetString("btnClose.AccessibleName")
        Me.btnClose.Anchor = CType(resources.GetObject("btnClose.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnClose.BackgroundImage = CType(resources.GetObject("btnClose.BackgroundImage"), System.Drawing.Image)
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.Dock = CType(resources.GetObject("btnClose.Dock"), System.Windows.Forms.DockStyle)
        Me.btnClose.Enabled = CType(resources.GetObject("btnClose.Enabled"), Boolean)
        Me.btnClose.FlatStyle = CType(resources.GetObject("btnClose.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnClose.Font = CType(resources.GetObject("btnClose.Font"), System.Drawing.Font)
        Me.btnClose.Image = CType(resources.GetObject("btnClose.Image"), System.Drawing.Image)
        Me.btnClose.ImageAlign = CType(resources.GetObject("btnClose.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnClose.ImageIndex = CType(resources.GetObject("btnClose.ImageIndex"), Integer)
        Me.btnClose.ImeMode = CType(resources.GetObject("btnClose.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnClose.Location = CType(resources.GetObject("btnClose.Location"), System.Drawing.Point)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.RightToLeft = CType(resources.GetObject("btnClose.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnClose.Size = CType(resources.GetObject("btnClose.Size"), System.Drawing.Size)
        Me.btnClose.TabIndex = CType(resources.GetObject("btnClose.TabIndex"), Integer)
        Me.btnClose.Text = resources.GetString("btnClose.Text")
        Me.btnClose.TextAlign = CType(resources.GetObject("btnClose.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnClose.Visible = CType(resources.GetObject("btnClose.Visible"), Boolean)
        '
        'updPageNumber
        '
        Me.updPageNumber.AccessibleDescription = resources.GetString("updPageNumber.AccessibleDescription")
        Me.updPageNumber.AccessibleName = resources.GetString("updPageNumber.AccessibleName")
        Me.updPageNumber.Anchor = CType(resources.GetObject("updPageNumber.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.updPageNumber.Dock = CType(resources.GetObject("updPageNumber.Dock"), System.Windows.Forms.DockStyle)
        Me.updPageNumber.Enabled = CType(resources.GetObject("updPageNumber.Enabled"), Boolean)
        Me.updPageNumber.Font = CType(resources.GetObject("updPageNumber.Font"), System.Drawing.Font)
        Me.updPageNumber.ImeMode = CType(resources.GetObject("updPageNumber.ImeMode"), System.Windows.Forms.ImeMode)
        Me.updPageNumber.Location = CType(resources.GetObject("updPageNumber.Location"), System.Drawing.Point)
        Me.updPageNumber.Name = "updPageNumber"
        Me.updPageNumber.RightToLeft = CType(resources.GetObject("updPageNumber.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.updPageNumber.Size = CType(resources.GetObject("updPageNumber.Size"), System.Drawing.Size)
        Me.updPageNumber.TabIndex = CType(resources.GetObject("updPageNumber.TabIndex"), Integer)
        Me.updPageNumber.TextAlign = CType(resources.GetObject("updPageNumber.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.updPageNumber.ThousandsSeparator = CType(resources.GetObject("updPageNumber.ThousandsSeparator"), Boolean)
        Me.updPageNumber.UpDownAlign = CType(resources.GetObject("updPageNumber.UpDownAlign"), System.Windows.Forms.LeftRightAlignment)
        Me.updPageNumber.Visible = CType(resources.GetObject("updPageNumber.Visible"), Boolean)
        '
        'ToolBar2
        '
        Me.ToolBar2.AccessibleDescription = resources.GetString("ToolBar2.AccessibleDescription")
        Me.ToolBar2.AccessibleName = resources.GetString("ToolBar2.AccessibleName")
        Me.ToolBar2.Anchor = CType(resources.GetObject("ToolBar2.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.ToolBar2.Appearance = CType(resources.GetObject("ToolBar2.Appearance"), System.Windows.Forms.ToolBarAppearance)
        Me.ToolBar2.AutoSize = CType(resources.GetObject("ToolBar2.AutoSize"), Boolean)
        Me.ToolBar2.BackgroundImage = CType(resources.GetObject("ToolBar2.BackgroundImage"), System.Drawing.Image)
        Me.ToolBar2.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbZoom100, Me.tbFitToWindow, Me.tbSep11, Me.tbFirst, Me.tbPrevious})
        Me.ToolBar2.ButtonSize = CType(resources.GetObject("ToolBar2.ButtonSize"), System.Drawing.Size)
        Me.ToolBar2.Divider = False
        Me.ToolBar2.Dock = CType(resources.GetObject("ToolBar2.Dock"), System.Windows.Forms.DockStyle)
        Me.ToolBar2.DropDownArrows = CType(resources.GetObject("ToolBar2.DropDownArrows"), Boolean)
        Me.ToolBar2.Enabled = CType(resources.GetObject("ToolBar2.Enabled"), Boolean)
        Me.ToolBar2.Font = CType(resources.GetObject("ToolBar2.Font"), System.Drawing.Font)
        Me.ToolBar2.ImageList = Me.ImageList1
        Me.ToolBar2.ImeMode = CType(resources.GetObject("ToolBar2.ImeMode"), System.Windows.Forms.ImeMode)
        Me.ToolBar2.Location = CType(resources.GetObject("ToolBar2.Location"), System.Drawing.Point)
        Me.ToolBar2.Name = "ToolBar2"
        Me.ToolBar2.RightToLeft = CType(resources.GetObject("ToolBar2.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ToolBar2.ShowToolTips = CType(resources.GetObject("ToolBar2.ShowToolTips"), Boolean)
        Me.ToolBar2.Size = CType(resources.GetObject("ToolBar2.Size"), System.Drawing.Size)
        Me.ToolBar2.TabIndex = CType(resources.GetObject("ToolBar2.TabIndex"), Integer)
        Me.ToolBar2.TextAlign = CType(resources.GetObject("ToolBar2.TextAlign"), System.Windows.Forms.ToolBarTextAlign)
        Me.ToolBar2.Visible = CType(resources.GetObject("ToolBar2.Visible"), Boolean)
        Me.ToolBar2.Wrappable = CType(resources.GetObject("ToolBar2.Wrappable"), Boolean)
        '
        'tbZoom100
        '
        Me.tbZoom100.Enabled = CType(resources.GetObject("tbZoom100.Enabled"), Boolean)
        Me.tbZoom100.ImageIndex = CType(resources.GetObject("tbZoom100.ImageIndex"), Integer)
        Me.tbZoom100.Text = resources.GetString("tbZoom100.Text")
        Me.tbZoom100.ToolTipText = resources.GetString("tbZoom100.ToolTipText")
        Me.tbZoom100.Visible = CType(resources.GetObject("tbZoom100.Visible"), Boolean)
        '
        'tbFitToWindow
        '
        Me.tbFitToWindow.Enabled = CType(resources.GetObject("tbFitToWindow.Enabled"), Boolean)
        Me.tbFitToWindow.ImageIndex = CType(resources.GetObject("tbFitToWindow.ImageIndex"), Integer)
        Me.tbFitToWindow.Text = resources.GetString("tbFitToWindow.Text")
        Me.tbFitToWindow.ToolTipText = resources.GetString("tbFitToWindow.ToolTipText")
        Me.tbFitToWindow.Visible = CType(resources.GetObject("tbFitToWindow.Visible"), Boolean)
        '
        'tbSep11
        '
        Me.tbSep11.Enabled = CType(resources.GetObject("tbSep11.Enabled"), Boolean)
        Me.tbSep11.ImageIndex = CType(resources.GetObject("tbSep11.ImageIndex"), Integer)
        Me.tbSep11.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep11.Text = resources.GetString("tbSep11.Text")
        Me.tbSep11.ToolTipText = resources.GetString("tbSep11.ToolTipText")
        Me.tbSep11.Visible = CType(resources.GetObject("tbSep11.Visible"), Boolean)
        '
        'lblPageCount
        '
        Me.lblPageCount.AccessibleDescription = resources.GetString("lblPageCount.AccessibleDescription")
        Me.lblPageCount.AccessibleName = resources.GetString("lblPageCount.AccessibleName")
        Me.lblPageCount.Anchor = CType(resources.GetObject("lblPageCount.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.lblPageCount.AutoSize = CType(resources.GetObject("lblPageCount.AutoSize"), Boolean)
        Me.lblPageCount.Dock = CType(resources.GetObject("lblPageCount.Dock"), System.Windows.Forms.DockStyle)
        Me.lblPageCount.Enabled = CType(resources.GetObject("lblPageCount.Enabled"), Boolean)
        Me.lblPageCount.Font = CType(resources.GetObject("lblPageCount.Font"), System.Drawing.Font)
        Me.lblPageCount.Image = CType(resources.GetObject("lblPageCount.Image"), System.Drawing.Image)
        Me.lblPageCount.ImageAlign = CType(resources.GetObject("lblPageCount.ImageAlign"), System.Drawing.ContentAlignment)
        Me.lblPageCount.ImageIndex = CType(resources.GetObject("lblPageCount.ImageIndex"), Integer)
        Me.lblPageCount.ImeMode = CType(resources.GetObject("lblPageCount.ImeMode"), System.Windows.Forms.ImeMode)
        Me.lblPageCount.Location = CType(resources.GetObject("lblPageCount.Location"), System.Drawing.Point)
        Me.lblPageCount.Name = "lblPageCount"
        Me.lblPageCount.RightToLeft = CType(resources.GetObject("lblPageCount.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lblPageCount.Size = CType(resources.GetObject("lblPageCount.Size"), System.Drawing.Size)
        Me.lblPageCount.TabIndex = CType(resources.GetObject("lblPageCount.TabIndex"), Integer)
        Me.lblPageCount.Text = resources.GetString("lblPageCount.Text")
        Me.lblPageCount.TextAlign = CType(resources.GetObject("lblPageCount.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblPageCount.Visible = CType(resources.GetObject("lblPageCount.Visible"), Boolean)
        '
        'tbPrint
        '
        Me.tbPrint.Enabled = CType(resources.GetObject("tbPrint.Enabled"), Boolean)
        Me.tbPrint.ImageIndex = CType(resources.GetObject("tbPrint.ImageIndex"), Integer)
        Me.tbPrint.Text = resources.GetString("tbPrint.Text")
        Me.tbPrint.ToolTipText = resources.GetString("tbPrint.ToolTipText")
        Me.tbPrint.Visible = CType(resources.GetObject("tbPrint.Visible"), Boolean)
        '
        'tbSep1
        '
        Me.tbSep1.Enabled = CType(resources.GetObject("tbSep1.Enabled"), Boolean)
        Me.tbSep1.ImageIndex = CType(resources.GetObject("tbSep1.ImageIndex"), Integer)
        Me.tbSep1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep1.Text = resources.GetString("tbSep1.Text")
        Me.tbSep1.ToolTipText = resources.GetString("tbSep1.ToolTipText")
        Me.tbSep1.Visible = CType(resources.GetObject("tbSep1.Visible"), Boolean)
        '
        'tbFormView
        '
        Me.tbFormView.Enabled = CType(resources.GetObject("tbFormView.Enabled"), Boolean)
        Me.tbFormView.ImageIndex = CType(resources.GetObject("tbFormView.ImageIndex"), Integer)
        Me.tbFormView.Text = resources.GetString("tbFormView.Text")
        Me.tbFormView.ToolTipText = resources.GetString("tbFormView.ToolTipText")
        Me.tbFormView.Visible = CType(resources.GetObject("tbFormView.Visible"), Boolean)
        '
        'tbDatasheetView
        '
        Me.tbDatasheetView.Enabled = CType(resources.GetObject("tbDatasheetView.Enabled"), Boolean)
        Me.tbDatasheetView.ImageIndex = CType(resources.GetObject("tbDatasheetView.ImageIndex"), Integer)
        Me.tbDatasheetView.Text = resources.GetString("tbDatasheetView.Text")
        Me.tbDatasheetView.ToolTipText = resources.GetString("tbDatasheetView.ToolTipText")
        Me.tbDatasheetView.Visible = CType(resources.GetObject("tbDatasheetView.Visible"), Boolean)
        '
        'tbSep2
        '
        Me.tbSep2.Enabled = CType(resources.GetObject("tbSep2.Enabled"), Boolean)
        Me.tbSep2.ImageIndex = CType(resources.GetObject("tbSep2.ImageIndex"), Integer)
        Me.tbSep2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep2.Text = resources.GetString("tbSep2.Text")
        Me.tbSep2.ToolTipText = resources.GetString("tbSep2.ToolTipText")
        Me.tbSep2.Visible = CType(resources.GetObject("tbSep2.Visible"), Boolean)
        '
        'tbRefresh
        '
        Me.tbRefresh.Enabled = CType(resources.GetObject("tbRefresh.Enabled"), Boolean)
        Me.tbRefresh.ImageIndex = CType(resources.GetObject("tbRefresh.ImageIndex"), Integer)
        Me.tbRefresh.Text = resources.GetString("tbRefresh.Text")
        Me.tbRefresh.ToolTipText = resources.GetString("tbRefresh.ToolTipText")
        Me.tbRefresh.Visible = CType(resources.GetObject("tbRefresh.Visible"), Boolean)
        '
        'tbSep3
        '
        Me.tbSep3.Enabled = CType(resources.GetObject("tbSep3.Enabled"), Boolean)
        Me.tbSep3.ImageIndex = CType(resources.GetObject("tbSep3.ImageIndex"), Integer)
        Me.tbSep3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep3.Text = resources.GetString("tbSep3.Text")
        Me.tbSep3.ToolTipText = resources.GetString("tbSep3.ToolTipText")
        Me.tbSep3.Visible = CType(resources.GetObject("tbSep3.Visible"), Boolean)
        '
        'tbFilter
        '
        Me.tbFilter.Enabled = CType(resources.GetObject("tbFilter.Enabled"), Boolean)
        Me.tbFilter.ImageIndex = CType(resources.GetObject("tbFilter.ImageIndex"), Integer)
        Me.tbFilter.Text = resources.GetString("tbFilter.Text")
        Me.tbFilter.ToolTipText = resources.GetString("tbFilter.ToolTipText")
        Me.tbFilter.Visible = CType(resources.GetObject("tbFilter.Visible"), Boolean)
        '
        'tbSort
        '
        Me.tbSort.Enabled = CType(resources.GetObject("tbSort.Enabled"), Boolean)
        Me.tbSort.ImageIndex = CType(resources.GetObject("tbSort.ImageIndex"), Integer)
        Me.tbSort.Text = resources.GetString("tbSort.Text")
        Me.tbSort.ToolTipText = resources.GetString("tbSort.ToolTipText")
        Me.tbSort.Visible = CType(resources.GetObject("tbSort.Visible"), Boolean)
        '
        'tbSep4
        '
        Me.tbSep4.Enabled = CType(resources.GetObject("tbSep4.Enabled"), Boolean)
        Me.tbSep4.ImageIndex = CType(resources.GetObject("tbSep4.ImageIndex"), Integer)
        Me.tbSep4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep4.Text = resources.GetString("tbSep4.Text")
        Me.tbSep4.ToolTipText = resources.GetString("tbSep4.ToolTipText")
        Me.tbSep4.Visible = CType(resources.GetObject("tbSep4.Visible"), Boolean)
        '
        'tbPages
        '
        Me.tbPages.Enabled = CType(resources.GetObject("tbPages.Enabled"), Boolean)
        Me.tbPages.ImageIndex = CType(resources.GetObject("tbPages.ImageIndex"), Integer)
        Me.tbPages.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
        Me.tbPages.Text = resources.GetString("tbPages.Text")
        Me.tbPages.ToolTipText = resources.GetString("tbPages.ToolTipText")
        Me.tbPages.Visible = CType(resources.GetObject("tbPages.Visible"), Boolean)
        '
        'tbSep5
        '
        Me.tbSep5.Enabled = CType(resources.GetObject("tbSep5.Enabled"), Boolean)
        Me.tbSep5.ImageIndex = CType(resources.GetObject("tbSep5.ImageIndex"), Integer)
        Me.tbSep5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        Me.tbSep5.Text = resources.GetString("tbSep5.Text")
        Me.tbSep5.ToolTipText = resources.GetString("tbSep5.ToolTipText")
        Me.tbSep5.Visible = CType(resources.GetObject("tbSep5.Visible"), Boolean)
        '
        'tbZoomOut
        '
        Me.tbZoomOut.Enabled = CType(resources.GetObject("tbZoomOut.Enabled"), Boolean)
        Me.tbZoomOut.ImageIndex = CType(resources.GetObject("tbZoomOut.ImageIndex"), Integer)
        Me.tbZoomOut.Text = resources.GetString("tbZoomOut.Text")
        Me.tbZoomOut.ToolTipText = resources.GetString("tbZoomOut.ToolTipText")
        Me.tbZoomOut.Visible = CType(resources.GetObject("tbZoomOut.Visible"), Boolean)
        '
        'tbZoomIn
        '
        Me.tbZoomIn.Enabled = CType(resources.GetObject("tbZoomIn.Enabled"), Boolean)
        Me.tbZoomIn.ImageIndex = CType(resources.GetObject("tbZoomIn.ImageIndex"), Integer)
        Me.tbZoomIn.Text = resources.GetString("tbZoomIn.Text")
        Me.tbZoomIn.ToolTipText = resources.GetString("tbZoomIn.ToolTipText")
        Me.tbZoomIn.Visible = CType(resources.GetObject("tbZoomIn.Visible"), Boolean)
        '
        'ToolBar1
        '
        Me.ToolBar1.AccessibleDescription = resources.GetString("ToolBar1.AccessibleDescription")
        Me.ToolBar1.AccessibleName = resources.GetString("ToolBar1.AccessibleName")
        Me.ToolBar1.Anchor = CType(resources.GetObject("ToolBar1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.ToolBar1.Appearance = CType(resources.GetObject("ToolBar1.Appearance"), System.Windows.Forms.ToolBarAppearance)
        Me.ToolBar1.AutoSize = CType(resources.GetObject("ToolBar1.AutoSize"), Boolean)
        Me.ToolBar1.BackgroundImage = CType(resources.GetObject("ToolBar1.BackgroundImage"), System.Drawing.Image)
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbPrint, Me.tbSep1, Me.tbFormView, Me.tbDatasheetView, Me.tbSep2, Me.tbRefresh, Me.tbSep3, Me.tbFilter, Me.tbSort, Me.tbSep4, Me.tbPages, Me.tbSep5, Me.tbZoomOut, Me.tbZoomIn})
        Me.ToolBar1.ButtonSize = CType(resources.GetObject("ToolBar1.ButtonSize"), System.Drawing.Size)
        Me.ToolBar1.Dock = CType(resources.GetObject("ToolBar1.Dock"), System.Windows.Forms.DockStyle)
        Me.ToolBar1.DropDownArrows = CType(resources.GetObject("ToolBar1.DropDownArrows"), Boolean)
        Me.ToolBar1.Enabled = CType(resources.GetObject("ToolBar1.Enabled"), Boolean)
        Me.ToolBar1.Font = CType(resources.GetObject("ToolBar1.Font"), System.Drawing.Font)
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.ImeMode = CType(resources.GetObject("ToolBar1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.ToolBar1.Location = CType(resources.GetObject("ToolBar1.Location"), System.Drawing.Point)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.RightToLeft = CType(resources.GetObject("ToolBar1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ToolBar1.ShowToolTips = CType(resources.GetObject("ToolBar1.ShowToolTips"), Boolean)
        Me.ToolBar1.Size = CType(resources.GetObject("ToolBar1.Size"), System.Drawing.Size)
        Me.ToolBar1.TabIndex = CType(resources.GetObject("ToolBar1.TabIndex"), Integer)
        Me.ToolBar1.TextAlign = CType(resources.GetObject("ToolBar1.TextAlign"), System.Windows.Forms.ToolBarTextAlign)
        Me.ToolBar1.Visible = CType(resources.GetObject("ToolBar1.Visible"), Boolean)
        Me.ToolBar1.Wrappable = CType(resources.GetObject("ToolBar1.Wrappable"), Boolean)
        '
        'Preview
        '
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CancelButton = Me.btnClose
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.PrintPreviewControl1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.Menu = Me.MainMenu1
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "Preview"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.Panel1.ResumeLayout(False)
        CType(Me.updPageNumber, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private forPrint As Boolean
    'Private fConnectionList As Avand.ConnectionList
    Private fFilter As Avand.Expression
    Private fRange As Avand.Range
    Private fSort As Avand.Expression
    Private [of] As String
    Private pageNumber, pageCount As Integer
    Private switch As Boolean

    Private mChain As ArrayList
    Private mCurrent As Model10.Current
    Private mOleDbConnection As OleDb.OleDbConnection
    Private mRelation As Model10.Relation 'For NoRelation
    Private mReport As Model10.Report

    Private Sub cboZoom_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboZoom.KeyPress
        Select Case e.KeyChar
            Case ControlChars.Cr
                If IsNumeric(Val(cboZoom.Text)) Then
                    If 1 <= Val(cboZoom.Text) And Val(cboZoom.Text) <= 10000 Then
                        PrintPreviewControl1.Zoom = Val(cboZoom.Text) / 100
                        CheckZoom()
                        cboZoom.SelectAll()
                    End If
                ElseIf cboZoom.Text.Trim.ToLower = "auto zoom" Or cboZoom.Text.Trim.ToLower = "autozoom" Then
                    cboZoom.SelectedIndex = 0
                    cboZoom.SelectAll()
                End If
        End Select
    End Sub
    Private Sub cboZoom_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboZoom.SelectionChangeCommitted
        Select Case cboZoom.SelectedIndex
            Case 0 : miZoomAuto.PerformClick()
            Case 1 : miZoom500.PerformClick()
            Case 2 : miZoom200.PerformClick()
            Case 3 : miZoom150.PerformClick()
            Case 4 : miZoom100.PerformClick()
            Case 5 : miZoom75.PerformClick()
            Case 6 : miZoom50.PerformClick()
            Case 7 : miZoom25.PerformClick()
            Case 8 : miZoom10.PerformClick()
        End Select
    End Sub

    Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
        ContextMenu1.MenuItems.Clear()

        Dim mi As MenuItem
        For Each mi In miView.MenuItems
            ContextMenu1.MenuItems.Add(mi.CloneMenu)
        Next : mi = Nothing
    End Sub

    Private Sub miFileClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFileClose.Click
        Me.Close()
    End Sub
    Private Sub miFileSaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFileSaveAs.Click
        Dim i As Integer = mReport.Pages.Count
        If fRange Is Nothing Then
            fRange = New Avand.Range
            fRange.updTo.Value = i
            fRange.chkInclude.Checked = CBool(Application.UserAppDataRegistry.GetValue("Include", True))
            fRange.chkOpen.Checked = CBool(Application.UserAppDataRegistry.GetValue("Open", True))
        End If
        fRange.updFrom.Maximum = i
        fRange.updTo.Maximum = i
        If fRange.updFrom.Value > i Then fRange.updFrom.Value = 1
        If fRange.updTo.Value > i Then fRange.updTo.Value = i
        If fRange.ShowDialog(Me) = DialogResult.OK Then
            Application.DoEvents()
            Cursor.Current = Cursors.WaitCursor
            '----------------------------------
            Try
                mReport.SaveHtml(CInt(fRange.updFrom.Value), CInt(fRange.updTo.Value), fRange.chkInclude.Checked, fRange.chkOpen.Checked, fRange.txtFile.Text)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            '----------------------------------
            Cursor.Current = Cursors.Default
        End If
    End Sub
    Private Sub miFilePageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFilePageSetup.Click
        Application.DoEvents()
        Cursor.Current = Cursors.WaitCursor
        '----------------------------------
        Try
            mCurrent.Table.WritePageSettings(PageSetupDialog1.PageSettings)
            If PageSetupDialog1.ShowDialog(Me) = DialogResult.OK Then
                Application.DoEvents()
                Cursor.Current = Cursors.WaitCursor
                '----------------------------------
                mCurrent.Table.ReadPageSettings(PageSetupDialog1.PageSettings)
                Fill(True)
                '----------------------------------
                Cursor.Current = Cursors.Default
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        '----------------------------------
        Cursor.Current = Cursors.Default
    End Sub
    Private Sub miFilePrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFilePrint.Click
        If PrintDialog1.ShowDialog(Me) = DialogResult.OK Then
            Application.DoEvents()
            Cursor.Current = Cursors.WaitCursor
            '----------------------------------
            pageNumber = PrintDialog1.PrinterSettings.FromPage
            pageCount = PrintDialog1.PrinterSettings.ToPage
            forPrint = True
            PrintDialog1.Document.Print()
            forPrint = False
            '----------------------------------
            Cursor.Current = Cursors.Default
        End If
    End Sub
    Private Sub miFileFormView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFileFormView.Click
        Application.DoEvents()
        Cursor.Current = Cursors.WaitCursor
        '----------------------------------
        Try
            Dim frm As New Avand.FormView(Me.Size, mReport.User, CType(mReport.Layout, Avand.Layout), mChain, mCurrent, mRelation, mOleDbConnection, Nothing)
            frm.StartPosition = FormStartPosition.Manual
            If Me.Location.Y = -23 Then
                frm.Size = mCurrent.Table.Size
            Else
                frm.Location = Me.Location
                frm.Size = Me.Size
            End If
            frm.Show()
            frm = Nothing
            switch = True
            Me.Close()
            switch = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        '----------------------------------
        Cursor.Current = Cursors.Default
    End Sub
    Private Sub miFileDatasheetView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miFileDatasheetView.Click
    End Sub

    Private Sub miPageFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPageFirst.Click
        PrintPreviewControl1.StartPage = 0
    End Sub
    Private Sub miPagePrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPagePrevious.Click
        PrintPreviewControl1.StartPage -= 1
    End Sub
    Private Sub miPageNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPageNext.Click
        PrintPreviewControl1.StartPage += 1
    End Sub
    Private Sub miPageLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miPageLast.Click
        PrintPreviewControl1.StartPage = pageNumber - 1
    End Sub
    Private Sub miZoomIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoomIn.Click
        If 100 < PrintPreviewControl1.Zoom + 0.1 Then
            PrintPreviewControl1.Zoom = 100
        Else
            PrintPreviewControl1.Zoom += 0.1
        End If
        CheckZoom()
    End Sub
    Private Sub miZoomOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoomOut.Click
        If PrintPreviewControl1.Zoom - 0.1 < 0.01 Then
            PrintPreviewControl1.Zoom = 0.01
        Else
            PrintPreviewControl1.Zoom -= 0.1
        End If
        CheckZoom()
    End Sub
    Private Sub miZoomFitToWindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoomFitToWindow.Click
        If Not PrintPreviewControl1.AutoZoom Then
            If PrintPreviewControl1.Rows = pageNumber Then PrintPreviewControl1.Rows = 1
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
            CheckLayout() : CheckZoom()
        End If
    End Sub
    Private Sub miZoomAuto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoomAuto.Click
        If PrintPreviewControl1.Rows = pageNumber Then PrintPreviewControl1.Rows = 1
        PrintPreviewControl1.AutoZoom = Not miZoomAuto.Checked
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miZoom500_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom500.Click
        PrintPreviewControl1.Zoom = 5
        CheckZoom()
    End Sub
    Private Sub miZoom200_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom200.Click
        PrintPreviewControl1.Zoom = 2
        CheckZoom()
    End Sub
    Private Sub miZoom150_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom150.Click
        PrintPreviewControl1.Zoom = 1.5
        CheckZoom()
    End Sub
    Private Sub miZoom100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom100.Click
        PrintPreviewControl1.Zoom = 1
        CheckZoom()
    End Sub
    Private Sub miZoom75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom75.Click
        PrintPreviewControl1.Zoom = 0.75
        CheckZoom()
    End Sub
    Private Sub miZoom50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom50.Click
        PrintPreviewControl1.Zoom = 0.5
        CheckZoom()
    End Sub
    Private Sub miZoom25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom25.Click
        PrintPreviewControl1.Zoom = 0.25
        CheckZoom()
    End Sub
    Private Sub miZoom10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miZoom10.Click
        PrintPreviewControl1.Zoom = 0.1
        CheckZoom()
    End Sub
    Private Sub miLayoutContinous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayoutContinous.Click
        If Not miLayoutContinous.Checked Then
            PrintPreviewControl1.AutoZoom = False
            PrintPreviewControl1.Columns = 1
            PrintPreviewControl1.Rows = pageNumber
        Else
            PrintPreviewControl1.Rows = 1
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout11.Click
        PrintPreviewControl1.Rows = 1
        PrintPreviewControl1.Columns = 1
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout12.Click
        PrintPreviewControl1.Rows = 1
        PrintPreviewControl1.Columns = 2
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout13.Click
        PrintPreviewControl1.Rows = 1
        PrintPreviewControl1.Columns = 3
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout22.Click
        PrintPreviewControl1.Rows = 2
        PrintPreviewControl1.Columns = 2
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout23.Click
        PrintPreviewControl1.Rows = 2
        PrintPreviewControl1.Columns = 3
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miLayout33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLayout33.Click
        PrintPreviewControl1.Rows = 3
        PrintPreviewControl1.Columns = 3
        If Not PrintPreviewControl1.AutoZoom Then
            PrintPreviewControl1.AutoZoom = True
            Application.DoEvents()
            PrintPreviewControl1.AutoZoom = False
        End If
        CheckLayout() : CheckZoom()
    End Sub
    Private Sub miViewFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miViewFilter.Click
        If fFilter Is Nothing Then fFilter = New Avand.Expression(Model10.ExpressionType.Filter, mCurrent.Table)
        fFilter.ShowDialog(Me)
        If fFilter.Changed Then
            If mCurrent.DataRow Is Nothing Then
                mCurrent.DataView = mCurrent.Table.Presentation.DataViewManager.CreateDataView(mCurrent.Table.DataTable)
            Else
                mCurrent.DataView = mCurrent.DataRow.CreateChildView(mCurrent.Relation.DataRelation)
            End If

            Application.DoEvents()
            Cursor.Current = Cursors.WaitCursor
            '----------------------------------
            Try
                Fill(True)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            '----------------------------------
            Cursor.Current = Cursors.Default
        End If
    End Sub
    Private Sub miViewSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miViewSort.Click
        If fSort Is Nothing Then fSort = New Avand.Expression(Model10.ExpressionType.Sort, mCurrent.Table)
        fSort.ShowDialog(Me)
        If fSort.Changed Then
            If mCurrent.DataRow Is Nothing Then
                mCurrent.DataView = mCurrent.Table.Presentation.DataViewManager.CreateDataView(mCurrent.Table.DataTable)
            Else
                mCurrent.DataView = mCurrent.DataRow.CreateChildView(mCurrent.Relation.DataRelation)
            End If

            Application.DoEvents()
            Cursor.Current = Cursors.WaitCursor
            '----------------------------------
            Try
                Fill(True)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            '----------------------------------
            Cursor.Current = Cursors.Default
        End If
    End Sub
    Private Sub miViewCustom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miViewCustom.Click
        'If fConnectionList Is Nothing Then
        '    fConnectionList = New Avand.ConnectionList(mCurrent.Table.Name, mCurrent.Table.Presentation.Connections)
        '    fConnectionList.Show()
        'Else
        '    If fConnectionList.Visible Then
        '        fConnectionList.BringToFront()
        '    Else
        '        fConnectionList = New Avand.ConnectionList(mCurrent.Table.Name, mCurrent.Table.Presentation.Connections)
        '        fConnectionList.Show()
        '    End If
        'End If
    End Sub
    Private Sub miViewRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miViewRefresh.Click
        If Not mReport.Layout Is Nothing Then
            If mCurrent.DataRow Is Nothing Then
                mCurrent.DataView = mCurrent.Table.Presentation.DataViewManager.CreateDataView(mCurrent.Table.DataTable)
            Else
                mCurrent.DataView = mCurrent.DataRow.CreateChildView(mCurrent.Relation.DataRelation)
            End If
            Fill()
        Else
            Dim tbl As Model10.Table
            If mChain.Count = 0 Then
                tbl = mCurrent.Table
            Else
                tbl = CType(mChain(0), Model10.Current).Table
            End If

            Application.DoEvents()
            Cursor.Current = Cursors.WaitCursor
            '----------------------------------
            If Avand.[Global].SetParameters(tbl.SelectCommand, Me, mChain, mCurrent) = DialogResult.OK Then
                Fill()
            End If
            '----------------------------------
            Cursor.Current = Cursors.Default

            tbl = Nothing
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
    'Private Sub Preview_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
    '    Try
    '        If Not switch Then mCurrent.Table.Presentation.CloseConnections()
    '        If Not fConnectionList Is Nothing Then fConnectionList.Close()
    '        If Not fRange Is Nothing Then
    '            Application.UserAppDataRegistry.SetValue("Include", fRange.chkInclude.Checked)
    '            Application.UserAppDataRegistry.SetValue("Open", fRange.chkOpen.Checked)
    '        End If
    '    Catch ex As Exception
    '        MsgBox(ex.Message)
    '    End Try
    'End Sub
    Private Sub PrintDocument1_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.EndPrint
        pageNumber -= 1
        If Not forPrint Then
            updPageNumber.Maximum = pageNumber
            updPageNumber.Minimum = 1
            lblPageCount.Text = [of] & " " & (pageNumber).ToString
            CheckPage()
        End If
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim t As Integer = mReport.PageSettings.Margins.Top
        If Not mReport.PageHeader Is Nothing Then
            DrawMembers(mReport.PageHeader.Members, e.Graphics, mReport.PageSettings.Margins.Left, t)
            t += mReport.PageHeader.Height
        End If
        Dim p As Model10.Page = mReport.Pages(pageNumber - 1)

        Dim sec As Model10.Section
        For Each sec In p.Sections
            Dim r As New Rectangle(mReport.PageSettings.Margins.Left + sec.Location.X, t + sec.Location.Y, sec.Table.Width, sec.Height)
            Dim b As New SolidBrush(sec.BackColor)
            e.Graphics.FillRectangle(b, r)
            b.Dispose() : b = Nothing
            DrawMembers(sec.Members, e.Graphics, r.X, r.Y)
        Next : sec = Nothing

        t += p.Height
        p = Nothing
        If Not mReport.PageFooter Is Nothing Then
            DrawMembers(mReport.PageFooter.Members, e.Graphics, mReport.PageSettings.Margins.Left, mReport.FooterTop)
            t += mReport.PageFooter.Height
        End If

        e.HasMorePages = (pageNumber <= pageCount - 1)
        pageNumber += 1
    End Sub

    Private Sub PrintPreviewControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PrintPreviewControl1.MouseDown
        Me.Select() : PrintPreviewControl1.Select()
    End Sub
    Private Sub PrintPreviewControl1_StartPageChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PrintPreviewControl1.StartPageChanged
        CheckPage()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Application.DoEvents()
                Cursor.Current = Cursors.WaitCursor
                '----------------------------------
                pageNumber = PrintDialog1.PrinterSettings.FromPage
                pageCount = PrintDialog1.PrinterSettings.ToPage
                forPrint = True
                PrintDialog1.Document.Print()
                forPrint = False
                '----------------------------------
                Cursor.Current = Cursors.Default
            Case 1 '-
            Case 2 : miFileFormView.PerformClick()
            Case 3 : miFileDatasheetView.PerformClick()
            Case 4 '-
            Case 5 : miViewRefresh.PerformClick()
            Case 6 '-
            Case 7 : miViewFilter.PerformClick()
            Case 8 : miViewSort.PerformClick()
            Case 9 '-
            Case 10 'Pages
            Case 11 '-
            Case 12 : miZoomOut.PerformClick()
            Case 13 : miZoomIn.PerformClick()
        End Select
    End Sub
    Private Sub ToolBar2_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar2.ButtonClick
        Select Case ToolBar2.Buttons.IndexOf(e.Button)
            Case 0 : miZoom100.PerformClick()
            Case 1 : miZoomFitToWindow.PerformClick()
            Case 2 '-
            Case 3 : miPageFirst.PerformClick()
            Case 4 : miPagePrevious.PerformClick()
        End Select
    End Sub
    Private Sub ToolBar3_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar3.ButtonClick
        Select Case ToolBar3.Buttons.IndexOf(e.Button)
            Case 0 : miPageNext.PerformClick()
            Case 1 : miPageLast.PerformClick()
        End Select
    End Sub

    Private Sub updPageNumber_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updPageNumber.ValueChanged
        PrintPreviewControl1.StartPage = CInt(updPageNumber.Value - 1)
    End Sub

    Private Sub CheckLayout()
        If PrintPreviewControl1.Rows = pageNumber And PrintPreviewControl1.Columns = 1 Then
            miLayoutContinous.Checked = True
        Else
            miLayoutContinous.Checked = False
        End If

        miLayout11.Checked = False
        miLayout12.Checked = False
        miLayout13.Checked = False
        miLayout22.Checked = False
        miLayout23.Checked = False
        miLayout33.Checked = False
        If PrintPreviewControl1.Rows = 1 And PrintPreviewControl1.Columns = 1 Then
            miLayout11.Checked = True
        ElseIf PrintPreviewControl1.Rows = 1 And PrintPreviewControl1.Columns = 2 Then
            miLayout12.Checked = True
        ElseIf PrintPreviewControl1.Rows = 1 And PrintPreviewControl1.Columns = 3 Then
            miLayout13.Checked = True
        ElseIf PrintPreviewControl1.Rows = 2 And PrintPreviewControl1.Columns = 2 Then
            miLayout22.Checked = True
        ElseIf PrintPreviewControl1.Rows = 2 And PrintPreviewControl1.Columns = 3 Then
            miLayout23.Checked = True
        ElseIf PrintPreviewControl1.Rows = 3 And PrintPreviewControl1.Columns = 3 Then
            miLayout33.Checked = True
        End If
    End Sub
    Private Sub CheckPage()
        If PrintPreviewControl1.StartPage = 0 Then
            miPageFirst.Enabled = False : tbFirst.Enabled = False
            miPagePrevious.Enabled = False : tbPrevious.Enabled = False
        Else
            miPageFirst.Enabled = True : tbFirst.Enabled = True
            miPagePrevious.Enabled = True : tbPrevious.Enabled = True
        End If
        If PrintPreviewControl1.StartPage = pageNumber - 1 Then
            miPageNext.Enabled = False : tbNext.Enabled = False
            miPageLast.Enabled = False : tbLast.Enabled = False
        Else
            miPageNext.Enabled = True : tbNext.Enabled = True
            miPageLast.Enabled = True : tbLast.Enabled = True
        End If
        updPageNumber.Value = PrintPreviewControl1.StartPage + 1
    End Sub
    Private Sub CheckZoom()
        miZoom500.Checked = False
        miZoom200.Checked = False
        miZoom150.Checked = False
        miZoom100.Checked = False
        miZoom75.Checked = False
        miZoom50.Checked = False
        miZoom25.Checked = False
        miZoom10.Checked = False
        If PrintPreviewControl1.AutoZoom Then
            miZoomAuto.Checked = True
            cboZoom.Text = "Auto Zoom"

            miZoomIn.Enabled = True : tbZoomIn.Enabled = True
            miZoomOut.Enabled = True : tbZoomOut.Enabled = True
        Else
            miZoomAuto.Checked = False
            Select Case PrintPreviewControl1.Zoom
                Case 5 : miZoom500.Checked = True
                Case 2 : miZoom200.Checked = True
                Case 1.5 : miZoom150.Checked = True
                Case 1 : miZoom100.Checked = True
                Case 0.75 : miZoom75.Checked = True
                Case 0.5 : miZoom50.Checked = True
                Case 0.25 : miZoom25.Checked = True
                Case 0.1 : miZoom10.Checked = True
            End Select
            cboZoom.Text = Format(PrintPreviewControl1.Zoom, "#%")

            If 100 <= PrintPreviewControl1.Zoom Then
                miZoomIn.Enabled = False : tbZoomIn.Enabled = False
            Else
                miZoomIn.Enabled = True : tbZoomIn.Enabled = True
            End If
            If PrintPreviewControl1.Zoom <= 0.01 Then
                miZoomOut.Enabled = False : tbZoomOut.Enabled = False
            Else
                miZoomOut.Enabled = True : tbZoomOut.Enabled = True
            End If
        End If
    End Sub

    Private Sub DrawMembers(ByVal members As Model10.MemberCollection, ByVal g As Graphics, ByVal offsetX As Integer, ByVal offsetY As Integer)
        Dim mem As Model10.Member
        For Each mem In members
            If mem.GetType Is GetType(Model10.Line) Then
                CType(mem, Model10.Line).DrawF(g, offsetX, offsetY)
            ElseIf mem.GetType Is GetType(Model10.Frame) Then
                CType(mem, Model10.Frame).DrawF(g, offsetX, offsetY)
            ElseIf TypeOf mem Is Model10.Label Then
                Dim lbl As Model10.Label = CType(mem, Model10.Label)
                Dim foo As String = ""
                Select Case lbl.Value
                    Case Model10.ValueType.PageNumber : foo = Model10.FFormat(pageNumber, lbl.Format)
                    Case Model10.ValueType.PageCount : foo = Model10.FFormat(mReport.Pages.Count, lbl.Format)
                    Case Else : foo = lbl.Text
                End Select
                lbl.DrawF(g, foo, offsetX, offsetY, Me.RightToLeft)
                lbl = Nothing
            ElseIf TypeOf mem Is Model10.PictureBox Then
                Dim pic As Model10.PictureBox = CType(mem, Model10.PictureBox)
                If pic.Image Is Nothing Then
                    CType(mem, Model10.Frame).DrawF(g, offsetX, offsetY)
                Else
                    pic.DrawF(g, offsetX, offsetY)
                End If
                pic = Nothing
            ElseIf TypeOf mem Is Model10.CheckBox Then
                CType(mem, Model10.CheckBox).DrawF(g, offsetX, offsetY)
            ElseIf TypeOf mem Is Model10.Button Then
                Dim btn As Model10.Button = CType(mem, Model10.Button)
                btn.DrawF(g, offsetX, offsetY)
                btn = Nothing
            ElseIf TypeOf mem Is Model10.Chart Then
                CType(mem, Model10.Chart).DrawChartF(g, offsetX, offsetY)
            End If
        Next : mem = Nothing
    End Sub

    Public Property Chain() As ArrayList
        Get
            Return mChain
        End Get
        Set(ByVal Value As ArrayList)
            mChain = Value
        End Set
    End Property
    Public Property Current() As Model10.Current
        Get
            Return mCurrent
        End Get
        Set(ByVal Value As Model10.Current)
            mCurrent = Value
        End Set
    End Property
    Public Property Report() As Model10.Report
        Get
            Return mReport
        End Get
        Set(ByVal Value As Model10.Report)
            mReport = Value
        End Set
    End Property

    Public Sub Fill(Optional ByVal simple As Boolean = False)
        mReport.FillReport(mCurrent, mRelation)

        If Not simple Then
            Me.Text = GetSystemResource("Preview.Title") & " - " & mCurrent.Table.Presentation.Name & "\" & mCurrent.Table.Name
            mReport.RightToLeft = CType(IIf(mCurrent.Table.Presentation.RightToLeft = RightToLeft.Inherit, RightToLeft, mCurrent.Table.Presentation.RightToLeft), RightToLeft)
            'PrintPreviewControl1.RightToLeft = mReport.RightToLeft
            [of] = GetSystemResource("Presentation.Of")
        End If
        PrintDocument1.DocumentName = mCurrent.Table.Name

        PrintDialog1.PrinterSettings.PrintRange = Printing.PrintRange.SomePages
        PrintDialog1.PrinterSettings.FromPage = 1
        PrintDialog1.PrinterSettings.ToPage = mReport.Pages.Count
        PrintDialog1.PrinterSettings.MinimumPage = 1
        PrintDialog1.PrinterSettings.MaximumPage = mReport.Pages.Count

        pageNumber = 1
        pageCount = mReport.Pages.Count

        mCurrent.Table.WritePageSettings(PageSetupDialog1.PageSettings)
        PrintPreviewControl1.StartPage = 0
        PrintPreviewControl1.AutoZoom = True
        cboZoom.Text = "Auto Zoom"
        PrintPreviewControl1.InvalidatePreview()

        'PrintDocument1_EndPrint--------------------
        updPageNumber.Maximum = pageNumber
        updPageNumber.Minimum = 1
        lblPageCount.Text = [of] & " " & (pageNumber).ToString
        CheckPage()
        '-------------------------------------------
    End Sub

    Public Sub New(ByVal size As Size, ByVal user As Model10.User, ByVal layout As Avand.Layout, ByVal chain As ArrayList, ByVal current As Model10.Current, ByVal relation As Model10.Relation)
        MyBase.New()
        InitializeComponent()

        'Me.MdiParent = fMain
        Me.Size = size
        mChain = chain
        mCurrent = current
        Dim rtl As Windows.Forms.RightToLeft
        Select Case mCurrent.Table.Presentation.RightToLeft
            Case Windows.Forms.RightToLeft.No : rtl = Windows.Forms.RightToLeft.No
            Case Windows.Forms.RightToLeft.Yes : rtl = Windows.Forms.RightToLeft.Yes
            Case Windows.Forms.RightToLeft.Inherit
                Select Case Me.RightToLeft
                    Case RightToLeft.No : rtl = Windows.Forms.RightToLeft.No
                    Case RightToLeft.Yes : rtl = Windows.Forms.RightToLeft.Yes
                End Select
        End Select
        mRelation = relation
        mReport = New Model10.Report(user, rtl, layout)
        Fill()
    End Sub

    Private Sub Preview_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'TinyErrorMessage()
    End Sub
End Class
